home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qmenu10.zip / ADBOX.BAS next >
BASIC Source File  |  1992-04-06  |  1KB  |  41 lines
  1. CLS
  2. DIM AD$(17)
  3. LOCATE 2, 20: PRINT STRING$(40, 15)
  4. FOR SIDE = 3 TO 21
  5. LOCATE SIDE, 20: PRINT CHR$(15); SPACE$(38); CHR$(15)
  6. NEXT
  7. LOCATE 22, 20: PRINT STRING$(40, 15)
  8.  
  9. AD$(1) = "     Thanks for using MENUMAN"
  10. AD$(2) = STRING$(35, 32)
  11. AD$(3) = "If MENUMAN has been useful to you,"
  12. AD$(4) = "please send $10 in check or money"
  13. AD$(5) = "order to this address:"
  14. AD$(6) = "     Carmen Paone"
  15. AD$(7) = "     1525 Locust St."
  16. AD$(8) = "     Reading, Pa."
  17. AD$(9) = "     19604"
  18. AD$(10) = STRING$(35, 32)
  19. AD$(11) = "Please specify the size disk _ "
  20. AD$(12) = "5.25  or 3.5 _ you would like."
  21. AD$(13) = "Registered users of MENUMAN"
  22. AD$(14) = "will receive updates free"
  23. AD$(15) = "of charge. Planned updates:"
  24. AD$(16) = "bounce-bar menus, Lotus-type"
  25. AD$(17) = "menus, F-Key menus and others."
  26.  
  27. FOR SET = 1 TO 17
  28.         LOCATE SET + 3, 23: COLOR 15, 0: PRINT AD$(SET): COLOR 7, 0
  29. NEXT
  30.  
  31. SLEEP 15
  32.  
  33. CLS
  34.  
  35. LOCATE 13, 20: PRINT "ADBOX.BAS WILL NOW CHAIN ITSELF TO RUNMENU.BAS"
  36.  
  37. SLEEP 10
  38.  
  39. RUN "RUNMENU"
  40.  
  41.